home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / daten / twistdemo / aminet / locateviewer < prev    next >
Text File  |  1995-03-17  |  425b  |  20 lines
  1. /**
  2.  * $Id$
  3.  *
  4.  * Extract Aminet archives
  5.  *
  6.  * Copyright © 1995 HiSoft. All Rights Reserved.
  7. **/
  8. OPTIONS RESULTS
  9.  
  10. ADDRESS Twist
  11. PARSE ARG dbfilename,rela_x,rela_y,shiftkeys
  12. OPEN "Twist:AminetBase/Viewer.DB"
  13. options results
  14.  
  15.  
  16. ADDRESS COMMAND 'setenv aminetviewer `RequestFile SYS: TITLE="Select a the viewer file"`'
  17. x = open('input','env:aminetviewer','R')
  18. VIEWERPATH = readln('input')
  19. SETDBFORMFIELD "ViewerPath" VIEWERPATH
  20.